lovera,

Segue arquivo com as imagens e com as dicas e nomes corretos.

At.te

CsFab.

Puxa vida. Os caras debulharam mesmo. Fico impressionado com o que os manos daqui fazem. Pelo q entendi o ultimo mano q mecheu no teu arquivo localizou a dica atravez do ProcV. Eu ainda vou estudar o q fizeram, serviu pra caramba pra mim aprender.

Como deixaram mastigado com as variaveis declaradas para o modulo, dali concatenei ela com o .jpg junto do endereço em um formulario de tamanho fixo.

Vê se é isso ai. Lembra de trocar o endereço aonde vc guarda essas imagens. Vc troca na rotina chamada, carrega imagem. Coloquei uma anotação para vc achar.

Se for isso então topico fechado.
Distribui o joinha para a galera!
Não esquece de mim!

Ah eu vi q vc queria com 2 botões.

Segue novamente com os 2 botões.

Lovera, nos dois arquivos dá o seguinte erro quando clico em dica de imagem:

Erro em tempo de execução '53':

O arquivo não foi localizado

Quando clico em depurar:

With frm_Imagem
.img_Dica.Picture = LoadPicture(Endereco) (Erro nessa linha fica amarela)

Quando clico em dica texto:

Erro em tempo de execução '1004':

Erro de definição de aplicativo ou de definição de objeto

Quando clico em depurar:

Sub Dica()

Application.ScreenUpdating = False
Dim palavra As String
Dim Dica As String
Dim lista As Range

Sheets(2).Activate
Set lista = Range(Cells(1, 1), Cells(linha, 2)) [ERRO]
palavra = Cells(Right(Names("aleatorio"), Len(Names("aleatorio")) - 1), 1)
Dica = Application.WorksheetFunction.VLookup(palavra, lista, 2, 0)
Sheets(1).Activate
MsgBox Dica, , "Dica"

At.te

Sub CarregaImagem()

Dim Endereco As String

          'coloca o endereço do arquivo aqui
Endereco = "E:estudo_vbaJOGOCOMIMAGENS" & lPalavraAdv & ".JPG"

With frm_Imagem
               .img_Dica.Picture = LoadPicture(Endereco)
End With

frm_Imagem.Show

End Sub

Tá vendo onde está o E: ... (Esse é o endereço onde os arquivos estão na minha maquina. Coloca ai o endereço que estão os arquivos das imagens na sua maquina. Não esquece de ao terminar de colocar o endereço coloca a (barra). O nome do arquivo é a variavel lpalavraAdv, que vai concatenar com a extensão .jpg

E esse arquivo tem q estar na mesma pasta pq facilita.

Tenta ai e me fala.

Lovera, olha fiz como disse:

Deixei tudo em C:jogo, olha o erro pela imagem:

At.te

Bom dia meu velho!

Vamos lá me responde isso.

1. Vc rodou o jogo pelo menos uma vez?

Lembra que tem que escolher o novo jogo. Dai vc pode clicar no dica por texto ou dica por imagem.
Se vc nunca roda o jogo, a palavra sorteada fica dentro de uma variavel chamada LPalavra. Cada vez q vc inicia o excel o jogo fica carregado mas a variavel não. Então tem q rodar pelo menos um jogo para a variavel ser usada e armazenar nela a palavra sorteada. Que com ela ele busca tanto a dica qto a imagem.

2.A grafia da pasta está identico né? Por exemplo o nome da pasta não está em maiuscula "JOGOS" e no endereço do vba vc colocou em minusculas "jogos"?

3. Os arquivos das imagens estão nessa pasta?

No aguardo.

Abs.

lovera.

Perfeito, era só a questão de clicar em novo jogo mesmo.

Muito obrigado.

Quando o jogo estiver totalmente finalizado, irei voltar no post, o coloca-lo.

At.te

csfab

Q firmeza!

Bom final de semana!